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**F ILE**1D**EQDEFM 
EEEEEEEEEE 000000 DDDDDDDD EEEEEEEEEE FFFFFFFFFF MM MM 
EEEEEEEEEE 000000 DDDDDDDD EEEEEEEEEE FFFFFFFFFF MM MM 
EE 00 OD DD EE FF MMMM =6MMMM 
EE 00 00 DD DD EE FF MMMM MMMM 
EE 00 00 DD DD EE FF M MM 
EE 00 OD DD EE FF MM MM OMM 
EEEEEEEE 00 00 DD DD EEEEEEEE FFFFFFFF MM MM 
EEEEEEEE 00 00 OD DD EEEEEEEE FFFFFFFF MM MM 
EE 00 DD DD EE FF MM MM 
EE 00 00 DD DD EE FF MM MM 
EE 00 00 DD DD EE FF MM MM ees 
EE 00 DD DD EE FF MM MM eee 
EEEEEEEEEE 000000 DDDDDDDD EEEEEEEEEE FF MM MM cove 
EEEEEEEEEE 000000 DDDDDDDD EEEEEEEEEE FF MM MM eee 
MM MM AAAAAA RRRRRRRR 
MM MM AAAABA RRRRRRRR 
MMMM 6MMMM AA AA RR RR 
MMMM MMMM AA AA RR RR 
MM MM OMM AA AA RR RR 
MM MM MM OAA AA RR RR 
MM MM AA AA RRRRRRRR 
MM MM AA AA RRRRRRRR 
MM MM AAAAAAAAAA RR RR 
MM MM AAAAAAAAAA RR RR 
MM MM AA AA RR RR 
MM MM AA AA RR RR 
MM MM AA AA RR RR 
MM MM AA AA RR RR 
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FACILITY : 
EDITPC Pattern Operator Encodings 


ABSTRACT : 

The EDITPC instruction, Edit Packed to Character String, performs the 

editing according to the pattern ihe which consists of one byte 

pattern operators. Some pattern operators take no operands. Some 

take a repeat count which is contained in the rightmost bes B of the 

pattern operator itself. The rest take a one byte operand wh 

follows the pattern operator immediately. This operand is either an 
uns igned anteger length or byte character. Edit patterns must end 

with> the EOSEND pattern operator. 


The EODEF macros permit easy construction of the edit pattern. 
ENVIRONMENT: 


AUTHOR: 
R. P. Grosso, Creation Date 9-0ct-1980 


MODIFIED BY: 
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: a ET ee OPERATOR ENCODING 
oy goseNo 
YTE 


; EOSEND encoding 
-ENDM — EOSEND 


EOSEND FLOAT EDIT ue OPERATOR ENCODING 
CALL EOSEND_FLOA 


me EOSEND_ FLOAT 
-ENDM EOSEND_FLOAT 


3; EOSEND_FLOAT encoding 


EOSCLEAR_SIGNIF EDIT PATTERN OPERATOR ENCODING 
CACL EOSCLEAR_SIGNIF 


re EORCLEAR.. SIGNIF 
“ENDM EOSCLEAR_SIGNIF 


; EOSCLEAR_SIGNIF encoding 


EOSSET_SIGNIF EDIT PATTERN OPERATOR ENCODING 
: CALL EOSSET_SIGNIF 


os cosseT. SIGNIF 
“ENDA EOSSET_SIGNIF 


; EOSSET_SIGNIF encoding 


; EOSSTORE SIGN EDIT PATTERN OPERATOR ENCODING 
: CACL EOSSTORE_SIGN 


-MACRO EOSSTORE_SIGN 
-BYT X04 


; EOSSTORE_SIGN encoding 
-ENDM EOSSTORE SIGN 


EOSLOAD FILL EDIT titter OPERATOR ENCODING 
CALL EOSLOAD FILL < 
UHERE CH IS THE FILL CHARACTER 


~MACRO tl FILL CH 
-BYTE g EDSLOAD FILL encoding 
-1F BLANK <CH> to be sure sn 

“WARN sEOSLOAD_FILL - aneck et WAS BLANK OR a oe eat rep 


~ENDC 
c1F ee a CH,/ : avoid .ASCII /// if CH is / 
2 : enter ASCII for ‘/"' 

aL : if CH is not “'/** then 
ASCII /CH/ 3: fill char placed in fill register 
-ENDM  EOSLOAD_FILL 


Sete Ge ee 
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sreany ty Pale’ cian etne OPERATOR ENCODING 
WHERE CH IS THE SIGN CHARACTER 


“MACRO EOSLOAD_SIGN CH 


YTE ig: “oe encedios 
c IF QatANk <CH> S be CH isn't blank 
“WAR sEOSLOAD_SIGN - gests £0 WAS BLANK OR sar DELIMITED 


; avoid .ASCII /// if CH is / 
; ater ASCII for ‘'/"' 
: n 


" Lse n 
“ASCII /CH/ ; sign char placed in sign register 


ENDA EOSLOAD_SIGN 


suena | tay ft Agee ge A OPERATOR ENCODING 
WHERE CH IS THE SIGN CHARACTER WHEN RESULT IS POSITIVE 


MACRO FOR, OAD PLUS CH 
T : _— ‘tr saeeers 


/* 
“IF BLANK <CH> chec o be e CH isn't blank 
-WARN ;EOSLOAD_PLUS - iMARACTER’ WAS BLANK OR SOT DELIMITED 
“IF IDENTICAL CH,/ ; avoid -ASCII ///,,, if CH is / 
-BYTE = *X2F ; enter ASCII for. 
FALSE ; if CH is not ‘/ i 
ASCII /CH/ 3 char to be placed in sign register 


EN 
[ENDM EOSLOAD_PLUS 


EOSLOAD_MINUS EDIT PATTERN OPERATOR ENCODING 
CALL EOSLOAD_MINUS < 
WHERE CH IS THE SIGN CHARACTER WHEN RESULT IS NEGATIVE 


-MACRO FOR, OAD MINUS CH 
-BYTE ; EOSLOAD sims snceaen 


~I1F BLANK <CH> check to be e CH isn't blank 
-WARN ;EOSLOAD_MINUS - * CHARACTER WAS *BLANK OR not DELIMITED 
“IF IDENTICAL CH,/ j avoid -ASCII ///,,, if CH is / 
-BY y “X2F ; enter ASCII for. , 

- 1F FALSE : if CH is not *'/ 

SASCII /CH/ ; char to be chad in sign register 


- END 
-ENDM EOSLOAD_MINUS 


EOSINSERT EDIT PATTERN SPERATER ENCODING 
CALL _EOSINSERT <CH> 
UHERE CH IS INSERTED 
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Sete Ge ee 


a EOp}MSERT CH 


; EOSINSERT yoy F 
“Lf “Sean <CH> ; check to be s isn't blank 
‘? — sEOSINSERT = CHARACTER WAS BLANK OR NOT DELIMITED 
lf MW Nae th CH,/ : avoid eet! Rly ; if CH is / 
. “X2F : qoter Ascil Rag 
IF _FALSE : if is nor fen, then 
ASCII = /CH/ : why to be inserted 


N 
-ENDM — EOSINSERT 


EOSBLANK_ZERO EDIT PATTERN OPERATOR ENCODING 
CACL EOSBLANK_2 N 
WHERE LEN IS A POSITIVE INTEGER 


- MACRO cope Am. ZERO LEN 


“BYTE ; EOSBLANK_ZERO encoding 
“ieee UAL LEN 


enne ;EOSBLANK_ZERO = LENGTH SHOULD NOT EQUAL ZERO 


-BYTE LEN 5 Lengeh to fill with contents of 
: l ig Mage ed if value of source 
3 string is zero. 

-ENDM EOSBLANK_ZERO 


EOSREPLACE_SIGN EDIT PATTERN OPERATOR ENCODING 
CALL” ECSREPLACE_SIGN LEN 
UHERE LEN IS A POSITIVE INTEGER 


-MACRO EOSREPLACE_SIGN LEN 
Or un “X46 ; EOSREPLACE_SIGN encoding 


LEN 
on AT EOSREPLACE. SIGN = LENGTH SHOULD NOT EQUAL ZERO 


“BYTE LEN 
7ENDM EOSREPLACE_SIGN 


vetemmeg ag ** tA cmt T_INPUT LEN OPERATOR ENCODING 
WHERE LEN is - POSITIVE. INTEGER 


sa EOSADJUST_INPUT LEN 
YTE ft ; EOSADJUST_INPUT encoding 
-1F LESS “Eau LEN 


WARN TEOSADJUST. INPUT = LENGTH MUST BE GREATER THAN ZERO 


EN NDC 
IF GREATER EQUAL LEN - 32 
vor sEOSADJUST_INPUT = LENGTH MUST BE LESS THAN 32 
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-BYTE LEN : Lengen to fill with contents of 
lL register if value of source 
; string is zero. 
-ENDM EOSADJUST_INPUT 
vena Fite OS he OPERATOR ENCODING 
WHERE R, THE REPEAT COUNT IS BETWEEN 1 AND 15 INCLUSIVE 


«MACRO EOSFILL R 


“WARN sEOSF ILL = REPEAT CANNOT’ BE CERO ee ae 

a7 GREATER_EQUAL R = 16 ; rapeee, fou must be contained in 
ARN sEOSFILL = REPEAT IS GREATER THAN 15 

-BYTE <*X80 + R> ; EOSFILL operator encoding 


; plus repeat count 
-ENDM EOSFILL 


votmsionte Pi te ae iy OPERATOR ENCODING 
WHERE R, THE REPEAT COUNT IS BETWEEN 1 AND 15 INCLUSIVE 


MACRO octets 
“LE LESS_EQUAL R 3; repeat cannot be zero 
~_ N  TEOSMOVE - REPEAT CANNOT BE PERO 
at OGREATER_EQUAL R= 16 3 papers Faas must be contained in 
>; an e 
WARN sEOSMOVE - REPEAT IS GREATER THAN 15 
“BYTE <*x90 + R> ; EOSMOVE operator encoding 


: plus repeat count 
-ENDM EOSMOVE 
EOSFLOAT EDIT PATTERN OPERATOR ENCODING 
CALL EOSFLOAT 
WHERE R, THE REPEAT COUNT IS BETWEEN 1 AND 15 INCLUSIVE 
MACRO art! R 


-IF LESS_EQU : repeat. cannot be zero 
-WARN TEOSFLOAT - REPEAT CANNOT BE ZERO 
a7 GREATER_EQUAL R =- 16 3 repeat count must be contained in 
> an e 
WARN ZEOSFLOAT - REPEAT IS GREATER THAN 15 
“BYTE <*XAO + R> ; EOSFLOAT operator encoding 
: plus repeat count 


-ENDM = EOSFLOAT 
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3+ 
; END OF EDIT PATTERN OPERATOR ENCODINGS 
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